/ RComp HTML Edit Studio for RISC OS / RComp HTML Edit Studio for RISC OS.iso / ZIPS / WXL.ZIP / HTMLEdit / !WebsterXL / Resources / XBM2Spr

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 58 42 | 4d 20 74 6f 20 53 70 72 |..... XB|M to Spr|
|00000010| 69 74 65 20 44 65 63 6f | 64 65 72 0d 00 14 0a f4 |ite Deco|der.....|
|00000020| 20 76 2e 30 32 0d 00 1e | 05 f4 0d 00 28 3d f4 20 | v.02...|....(=. |
|00000030| 53 79 6e 74 61 78 3a 20 | 58 42 4d 32 73 70 72 20 |Syntax: |XBM2spr |
|00000040| 3c 6d 6f 64 65 3e 20 3c | 73 6f 75 72 63 65 5f 66 |<mode> <|source_f|
|00000050| 69 6c 65 3e 20 3c 64 65 | 73 74 69 6e 61 74 69 6f |ile> <de|stinatio|
|00000060| 6e 5f 66 69 6c 65 3e 0d | 00 32 04 0d 00 3c 11 f2 |n_file>.|.2...<..|
|00000070| 73 65 74 75 70 68 65 61 | 70 28 93 29 0d 00 46 16 |setuphea|p(.)..F.|
|00000080| c8 99 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |.."OS_Ge|tEnv" . |
|00000090| 63 24 0d 00 50 29 50 25 | 3d a7 63 24 2c 22 22 22 |c$..P)P%|=.c$,"""|
|000000a0| 22 2c a7 63 24 2c 22 22 | 22 22 29 2b 31 29 3a 63 |",.c$,""|"")+1):c|
|000000b0| 24 3d c1 63 24 2c 50 25 | 2b 31 29 0d 00 5a 1c c8 |$=.c$,P%|+1)..Z..|
|000000c0| 95 c0 63 24 2c 31 29 3d | 22 20 22 3a 63 24 3d c1 |..c$,1)=|" ":c$=.|
|000000d0| 63 24 2c 32 29 3a ce 0d | 00 64 2c 50 25 3d a7 63 |c$,2):..|.d,P%=.c|
|000000e0| 24 2c 22 20 22 29 3a 6d | 6f 64 65 24 3d c0 63 24 |$," "):m|ode$=.c$|
|000000f0| 2c 50 25 2d 31 29 3a 63 | 24 3d c1 63 24 2c 50 25 |,P%-1):c|$=.c$,P%|
|00000100| 2b 31 29 0d 00 6e 18 c8 | 95 97 63 24 3d 33 32 3a |+1)..n..|..c$=32:|
|00000110| 63 24 3d c1 63 24 2c 32 | 29 3a ce 0d 00 78 2b 50 |c$=.c$,2|):...x+P|
|00000120| 25 3d a7 63 24 2c 22 20 | 22 29 3a 53 72 63 24 3d |%=.c$," |"):Src$=|
|00000130| c0 63 24 2c 50 25 2d 31 | 29 3a 63 24 3d c1 63 24 |.c$,P%-1|):c$=.c$|
|00000140| 2c 50 25 2b 31 29 0d 00 | 82 18 c8 95 97 63 24 3d |,P%+1)..|.....c$=|
|00000150| 33 32 3a 63 24 3d c1 63 | 24 2c 32 29 3a ce 0d 00 |32:c$=.c|$,2):...|
|00000160| 8c 0c 44 65 73 74 24 3d | 63 24 0d 00 96 2b 50 25 |..Dest$=|c$...+P%|
|00000170| 3d a7 44 65 73 74 24 2c | 22 20 22 29 3a e7 50 25 |=.Dest$,|" "):.P%|
|00000180| 3e 30 20 44 65 73 74 24 | 3d c0 44 65 73 74 24 2c |>0 Dest$|=.Dest$,|
|00000190| 50 25 2d 31 29 0d 00 a0 | 04 0d 00 aa 09 f2 69 6e |P%-1)...|......in|
|000001a0| 69 74 0d 00 b4 04 0d 00 | be 16 ee 85 f2 65 72 72 |it......|.....err|
|000001b0| 6f 72 28 f6 24 2c 9f 2c | 9e 29 3a e0 0d 00 c8 04 |or(.$,.,|.):.....|
|000001c0| 0d 00 d2 1d 54 25 3d a4 | 78 62 6d 74 6f 73 70 72 |....T%=.|xbmtospr|
|000001d0| 28 53 72 63 24 2c bb 6d | 6f 64 65 24 29 0d 00 dc |(Src$,.m|ode$)...|
|000001e0| 1f e7 54 25 3e 30 20 c8 | 99 53 4f 25 2c 32 35 36 |..T%>0 .|.SO%,256|
|000001f0| 2b 31 32 2c 54 25 2c 44 | 65 73 74 24 0d 00 e6 05 |+12,T%,D|est$....|
|00000200| e0 0d 00 f0 04 0d 00 fa | 1b dd a4 78 62 6d 74 6f |........|...xbmto|
|00000210| 73 70 72 28 46 24 2c 78 | 62 6d 6d 6f 64 65 25 29 |spr(F$,x|bmmode%)|
|00000220| 0d 01 04 24 ea 20 73 25 | 2c 61 24 2c 57 25 2c 48 |...$. s%|,a$,W%,H|
|00000230| 25 2c 78 25 2c 79 25 2c | 43 25 2c 4d 25 2c 48 24 |%,x%,y%,|C%,M%,H$|
|00000240| 2c 66 69 25 0d 01 0e 13 | 66 69 25 3d 8e 28 46 24 |,fi%....|fi%=.(F$|
|00000250| 29 3a 73 25 3d 2d 31 0d | 01 18 0b e7 66 69 25 3e |):s%=-1.|....fi%>|
|00000260| 30 8c 0d 01 22 0c c8 95 | ac c5 23 66 69 25 0d 01 |0..."...|..#fi%..|
|00000270| 2c 23 20 61 24 3d be 23 | 66 69 25 3a 48 24 3d 22 |,# a$=.#|fi%:H$="|
|00000280| 30 31 32 33 34 35 36 37 | 38 39 41 42 43 44 45 46 |01234567|89ABCDEF|
|00000290| 22 0d 01 36 18 20 e7 c0 | 61 24 2c 37 29 3d 22 23 |"..6. ..|a$,7)="#|
|000002a0| 64 65 66 69 6e 65 22 20 | 8c 0d 01 40 24 20 20 61 |define" |...@$  a|
|000002b0| 24 3d c1 61 24 2c 38 29 | 3a c8 95 97 61 24 3d 33 |$=.a$,8)|:...a$=3|
|000002c0| 32 3a 61 24 3d c1 61 24 | 2c 32 29 3a ce 0d 01 4a |2:a$=.a$|,2):...J|
|000002d0| 2a 20 20 50 25 3d a7 61 | 24 2c 22 5f 77 69 64 74 |*  P%=.a|$,"_widt|
|000002e0| 68 22 29 3a e7 50 25 3e | 30 20 57 25 3d bb c1 61 |h"):.P%>|0 W%=..a|
|000002f0| 24 2c 50 25 2b 36 29 0d | 01 54 2b 20 20 50 25 3d |$,P%+6).|.T+  P%=|
|00000300| a7 61 24 2c 22 5f 68 65 | 69 67 68 74 22 29 3a e7 |.a$,"_he|ight"):.|
|00000310| 50 25 3e 30 20 48 25 3d | bb c1 61 24 2c 50 25 2b |P%>0 H%=|..a$,P%+|
|00000320| 37 29 0d 01 5e 06 20 cc | 0d 01 68 18 20 20 e7 c0 |7)..^. .|..h.  ..|
|00000330| 61 24 2c 36 29 3d 22 73 | 74 61 74 69 63 22 20 8c |a$,6)="s|tatic" .|
|00000340| 0d 01 72 25 20 20 20 61 | 24 3d c1 61 24 2c 37 29 |..r%   a|$=.a$,7)|
|00000350| 3a c8 95 97 61 24 3d 33 | 32 3a 61 24 3d c1 61 24 |:...a$=3|2:a$=.a$|
|00000360| 2c 32 29 3a ce 0d 01 7c | 18 20 20 20 e7 20 c0 61 |,2):...||.   . .a|
|00000370| 24 2c 34 29 3d 22 63 68 | 61 72 22 20 8c 0d 01 86 |$,4)="ch|ar" ....|
|00000380| 22 20 20 20 20 4c 25 3d | 28 28 57 25 81 38 29 2b |"    L%=|((W%.8)+|
|00000390| 38 2b 28 57 25 2a 48 25 | 29 2b 32 30 29 2a 32 0d |8+(W%*H%|)+20)*2.|
|000003a0| 01 90 3c 20 20 20 20 78 | 25 3d 30 3a 79 25 3d 30 |..<    x|%=0:y%=0|
|000003b0| 3a 73 25 3d a4 64 69 6d | 28 4c 25 29 3a 21 73 25 |:s%=.dim|(L%):!s%|
|000003c0| 3d 4c 25 3a 73 25 21 34 | 3d 30 3a 73 25 21 38 3d |=L%:s%!4|=0:s%!8=|
|000003d0| 31 36 3a 73 25 21 31 32 | 3d 31 36 0d 01 9a 35 20 |16:s%!12|=16...5 |
|000003e0| 20 20 20 21 73 25 3d 4c | 25 3a c8 99 53 4f 25 2c |   !s%=L|%:..SO%,|
|000003f0| 32 35 36 2b 31 35 2c 73 | 25 2c 22 53 50 52 22 2c |256+15,s|%,"SPR",|
|00000400| 30 2c 57 25 2c 48 25 2c | 78 62 6d 6d 6f 64 65 25 |0,W%,H%,|xbmmode%|
|00000410| 0d 01 a4 23 20 20 20 20 | c8 99 53 4f 25 2c 32 35 |...#    |..SO%,25|
|00000420| 36 2b 32 39 2c 73 25 2c | 22 53 50 52 22 3a 48 25 |6+29,s%,|"SPR":H%|
|00000430| 2d 3d 31 0d 01 ae 24 20 | 20 20 20 c8 99 53 4f 25 |-=1...$ |   ..SO%|
|00000440| 2c 32 35 36 2b 32 34 2c | 73 25 2c 22 53 50 52 22 |,256+24,|s%,"SPR"|
|00000450| b8 2c 2c 73 70 72 25 0d | 01 b8 1f 20 20 20 20 c8 |.,,spr%.|...    .|
|00000460| 95 a7 61 24 2c 22 7b 22 | 29 3d 30 3a 61 24 3d be |..a$,"{"|)=0:a$=.|
|00000470| 23 66 69 25 3a ce 0d 01 | c2 24 20 20 20 20 61 24 |#fi%:...|.$    a$|
|00000480| 3d a4 63 28 c1 61 24 2c | a7 61 24 2c 22 7b 22 29 |=.c(.a$,|.a$,"{")|
|00000490| 2b 31 29 29 3a 79 25 3d | 48 25 0d 01 cc 1b 20 20 |+1)):y%=|H%....  |
|000004a0| 20 20 c8 95 c0 61 24 2c | 31 29 3c 3e 22 7d 22 80 |  ...a$,|1)<>"}".|
|000004b0| 79 25 3e 2d 31 0d 01 d6 | 44 20 20 20 20 20 c8 95 |y%>-1...|D     ..|
|000004c0| 97 61 24 3d 33 32 3a 61 | 24 3d c1 61 24 2c 32 29 |.a$=32:a|$=.a$,2)|
|000004d0| 3a ce 3a e7 97 61 24 3d | 34 34 20 61 24 3d c1 61 |:.:..a$=|44 a$=.a|
|000004e0| 24 2c 32 29 3a c8 95 97 | 61 24 3d 33 32 3a 61 24 |$,2):...|a$=32:a$|
|000004f0| 3d c1 61 24 2c 32 29 3a | ce 0d 01 e0 62 20 20 20 |=.a$,2):|....b   |
|00000500| 20 20 e7 a9 61 24 3d 30 | 80 ac c5 23 66 69 25 20 |  ..a$=0|...#fi% |
|00000510| f5 3a 61 24 3d be 23 66 | 69 25 3a c8 95 97 61 24 |.:a$=.#f|i%:...a$|
|00000520| 3d 33 32 3a 61 24 3d c1 | 61 24 2c 32 29 3a ce 3a |=32:a$=.|a$,2):.:|
|00000530| fd a9 61 24 3e 30 84 c5 | 23 66 69 25 3a 61 24 3d |..a$>0..|#fi%:a$=|
|00000540| a4 63 28 61 24 29 20 8b | e7 a9 61 24 3d 30 80 c5 |.c(a$) .|..a$=0..|
|00000550| 23 66 69 25 20 61 24 3d | 22 7d 22 0d 01 ea 6e 20 |#fi% a$=|"}"...n |
|00000560| 20 20 20 20 e7 c0 61 24 | 2c 32 29 3d 22 30 58 22 |    ..a$|,2)="0X"|
|00000570| 20 56 25 3d 28 28 a7 48 | 24 2c c1 61 24 2c 33 2c | V%=((.H|$,.a$,3,|
|00000580| 31 29 29 2d 31 29 3c 3c | 34 29 2b 28 a7 48 24 2c |1))-1)<<|4)+(.H$,|
|00000590| c1 61 24 2c 34 2c 31 29 | 29 2d 31 29 3a 61 24 3d |.a$,4,1)|)-1):a$=|
|000005a0| c1 61 24 2c 35 29 8b 56 | 25 3d bb 61 24 3a c8 95 |.a$,5).V|%=.a$:..|
|000005b0| a7 22 30 31 32 33 34 35 | 36 37 38 39 22 2c c0 61 |."012345|6789",.a|
|000005c0| 24 2c 31 29 29 3e 30 3a | ce 0d 01 f4 52 20 20 20 |$,1))>0:|....R   |
|000005d0| 20 20 4d 25 3d 31 3a e3 | 51 25 3d 30 b8 37 3a e7 |  M%=1:.|Q%=0.7:.|
|000005e0| 28 56 25 80 4d 25 29 c8 | 99 53 4f 25 2c 35 35 34 |(V%.M%).|.SO%,554|
|000005f0| 2c 73 25 2c 73 70 72 25 | 2c 78 25 2c 79 25 2c 31 |,s%,spr%|,x%,y%,1|
|00000600| 20 8b c8 99 53 4f 25 2c | 35 35 36 2c 73 25 2c 73 | ...SO%,|556,s%,s|
|00000610| 70 72 25 2c 78 25 2c 79 | 25 2c 30 0d 01 fe 2f 20 |pr%,x%,y|%,0.../ |
|00000620| 20 20 20 20 4d 25 3d 4d | 25 3c 3c 31 3a 78 25 2b |    M%=M|%<<1:x%+|
|00000630| 3d 31 3a e7 78 25 3d 57 | 25 20 78 25 3d 30 3a 79 |=1:.x%=W|% x%=0:y|
|00000640| 25 2d 3d 31 3a 51 25 3d | 39 39 0d 02 08 0a 20 20 |%-=1:Q%=|99....  |
|00000650| 20 20 20 ed 0d 02 12 1a | 20 20 20 20 20 e7 97 61 |   .....|     ..a|
|00000660| 24 3d 34 34 20 61 24 3d | c1 61 24 2c 32 29 0d 02 |$=44 a$=|.a$,2)..|
|00000670| 1c 09 20 20 20 20 ce 0d | 02 26 08 20 20 20 cd 0d |..    ..|.&.   ..|
|00000680| 02 30 07 20 20 cd 0d 02 | 3a 06 20 cd 0d 02 44 05 |.0.  ...|:. ...D.|
|00000690| ce 0d 02 4e 09 d9 23 66 | 69 25 0d 02 58 05 cd 0d |...N..#f|i%..X...|
|000006a0| 02 62 07 3d 73 25 0d 02 | 6c 04 0d 02 76 13 dd f2 |.b.=s%..|l...v...|
|000006b0| 73 65 74 75 70 68 65 61 | 70 28 48 25 29 0d 02 80 |setuphea|p(H%)...|
|000006c0| 08 ea 20 53 25 0d 02 8a | 35 c8 99 26 35 31 b8 70 |.. S%...|5..&51.p|
|000006d0| 73 25 3a c8 99 26 34 30 | 30 45 43 2c 2d 31 2c 2d |s%:..&40|0EC,-1,-|
|000006e0| 31 b8 53 25 3a c8 99 26 | 34 30 30 45 43 2c 53 25 |1.S%:..&|400EC,S%|
|000006f0| 2b 70 73 25 2c 2d 31 b8 | 53 25 0d 02 94 3f 53 25 |+ps%,-1.|S%...?S%|
|00000700| 3d 28 53 25 2d 48 25 2b | 26 38 30 30 30 29 2d 31 |=(S%-H%+|&8000)-1|
|00000710| 36 3a e7 53 25 3c 32 34 | 20 85 20 31 2c 22 48 65 |6:.S%<24| . 1,"He|
|00000720| 61 70 20 74 6f 20 73 6d | 61 6c 6c 20 28 22 2b c3 |ap to sm|all ("+.|
|00000730| 53 25 2b 22 3c 32 34 29 | 22 0d 02 9e 1a 68 65 25 |S%+"<24)|"....he%|
|00000740| 3d 48 25 3a c8 99 26 31 | 44 2c 30 2c 68 65 25 2c |=H%:..&1|D,0,he%,|
|00000750| 2c 53 25 0d 02 a8 2d 53 | 25 3d 70 73 25 3a 50 53 |,S%...-S|%=ps%:PS|
|00000760| 25 3d 30 3a c8 95 28 53 | 25 80 31 29 3d 30 3a 50 |%=0:..(S|%.1)=0:P|
|00000770| 53 25 2b 3d 31 3a 53 25 | 3d 53 25 3e 3e 31 3a ce |S%+=1:S%|=S%>>1:.|
|00000780| 0d 02 b2 05 e1 0d 02 bc | 04 0d 02 c6 0d dd a4 64 |........|.......d|
|00000790| 69 6d 28 4c 25 29 0d 02 | d0 12 ea 50 25 3a e7 4c |im(L%)..|...P%:.L|
|000007a0| 25 3c 38 20 4c 25 3d 38 | 0d 02 da 89 c8 99 26 32 |%<8 L%=8|......&2|
|000007b0| 30 30 31 44 2c 32 2c 68 | 65 25 2c 2c 4c 25 b8 2c |001D,2,h|e%,,L%.,|
|000007c0| 2c 50 25 3a e7 50 25 3d | 30 20 c8 99 26 34 30 30 |,P%:.P%=|0 ..&400|
|000007d0| 45 43 2c 2d 31 2c 2d 31 | b8 50 25 3a c8 99 26 34 |EC,-1,-1|.P%:..&4|
|000007e0| 30 30 45 43 2c 28 28 50 | 25 2b 4c 25 2b 70 73 25 |00EC,((P|%+L%+ps%|
|000007f0| 2d 31 29 81 70 73 25 29 | 3c 3c 50 53 25 2c 2d 31 |-1).ps%)|<<PS%,-1|
|00000800| b8 50 25 3a 68 65 25 21 | 26 43 3d 28 50 25 2b 26 |.P%:he%!|&C=(P%+&|
|00000810| 38 30 30 30 29 2d 68 65 | 25 2d 31 36 3a c8 99 26 |8000)-he|%-16:..&|
|00000820| 31 44 2c 32 2c 68 65 25 | 2c 2c 4c 25 b8 2c 2c 50 |1D,2,he%|,,L%.,,P|
|00000830| 25 0d 02 e4 07 3d 50 25 | 0d 02 ee 04 0d 02 f8 10 |%....=P%|........|
|00000840| dd f2 66 72 65 65 28 f8 | 20 48 25 29 0d 03 02 8d |..free(.| H%)....|
|00000850| c8 99 26 31 44 2c 33 2c | 68 65 25 2c 48 25 3a e7 |..&1D,3,|he%,H%:.|
|00000860| 28 68 65 25 2b 68 65 25 | 21 26 38 2b 70 73 25 2d |(he%+he%|!&8+ps%-|
|00000870| 31 29 81 70 73 25 3c 28 | 68 65 25 2b 68 65 25 21 |1).ps%<(|he%+he%!|
|00000880| 26 43 2b 70 73 25 2d 31 | 29 81 70 73 25 20 c8 99 |&C+ps%-1|).ps% ..|
|00000890| 26 34 30 30 45 43 2c 28 | 28 68 65 25 2d 26 38 30 |&400EC,(|(he%-&80|
|000008a0| 30 30 2b 68 65 25 21 26 | 38 2b 70 73 25 2d 31 29 |00+he%!&|8+ps%-1)|
|000008b0| 81 70 73 25 29 3c 3c 50 | 53 25 2c 2d 31 b8 48 25 |.ps%)<<P|S%,-1.H%|
|000008c0| 3a 68 65 25 21 26 43 3d | 28 48 25 2b 26 38 30 30 |:he%!&C=|(H%+&800|
|000008d0| 30 29 2d 68 65 25 2d 31 | 36 0d 03 0c 08 48 25 3d |0)-he%-1|6....H%=|
|000008e0| 30 0d 03 16 05 e1 0d 03 | 20 04 0d 03 2a 0a dd f2 |0.......| ...*...|
|000008f0| 69 6e 69 74 0d 03 34 3b | c8 99 22 4f 53 5f 53 57 |init..4;|.."OS_SW|
|00000900| 49 4e 75 6d 62 65 72 46 | 72 6f 6d 53 74 72 69 6e |INumberF|romStrin|
|00000910| 67 22 2c 2c 22 4f 53 5f | 53 57 49 4e 75 6d 62 65 |g",,"OS_|SWINumbe|
|00000920| 72 46 72 6f 6d 53 74 72 | 69 6e 67 22 b8 53 25 0d |rFromStr|ing".S%.|
|00000930| 03 3e 34 c8 99 53 25 2c | 2c 22 58 4f 53 5f 53 70 |.>4..S%,|,"XOS_Sp|
|00000940| 72 69 74 65 4f 70 22 b8 | 58 53 25 3a c8 99 53 25 |riteOp".|XS%:..S%|
|00000950| 2c 2c 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 b8 |,,"OS_Sp|riteOp".|
|00000960| 53 4f 25 0d 03 48 05 e1 | 0d 03 52 04 0d 03 5c 15 |SO%..H..|..R...\.|
|00000970| dd f2 65 72 72 6f 72 28 | 45 24 2c 45 25 2c 4c 25 |..error(|E$,E%,L%|
|00000980| 29 0d 03 66 17 f1 45 24 | 2b 22 20 61 74 20 6c 69 |)..f..E$|+" at li|
|00000990| 6e 65 20 22 2b c3 4c 25 | 0d 03 67 21 ff 22 53 45 |ne "+.L%|..g!."SE|
|000009a0| 54 20 58 54 20 22 2b 45 | 24 2b 22 20 61 74 20 6c |T XT "+E|$+" at l|
|000009b0| 69 6e 65 20 22 2b c3 4c | 25 0d 03 70 05 e1 0d 03 |ine "+.L|%..p....|
|000009c0| 7a 04 0d 03 84 0b dd a4 | 63 28 41 24 29 0d 03 8e |z.......|c(A$)...|
|000009d0| 07 ea 51 25 0d 03 98 44 | e3 51 25 3d 30 b8 a9 41 |..Q%...D|.Q%=0..A|
|000009e0| 24 3a e7 97 c1 41 24 2c | 51 25 2c 31 29 3e 39 36 |$:...A$,|Q%,1)>96|
|000009f0| 80 97 c1 41 24 2c 51 25 | 29 3c 31 32 33 20 c1 41 |...A$,Q%|)<123 .A|
|00000a00| 24 2c 51 25 2c 31 29 3d | bd 28 97 c1 41 24 2c 51 |$,Q%,1)=|.(..A$,Q|
|00000a10| 25 2c 31 29 2d 33 32 29 | 0d 03 a2 05 ed 0d 03 ac |%,1)-32)|........|
|00000a20| 07 3d 41 24 0d ff       |                         |.=A$..  |        |
+--------+-------------------------+-------------------------+--------+--------+